home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
TR-AREQ.ZIP
/
ANSIREQ.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-11-28
|
14KB
|
376 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
Declare Procedure PROC001(String STRING020, String STRING021)
;------------------------------------------------------------------------------
If (Exist(PPEPath() + "ANSIREQ.CFG")) Goto LABEL001
FCreate 1, PPEPath() + "ANSIREQ.CFG", 3, 0
FPutLn 1, "28"
FPutLn 1, "12"
FPutLn 1, "43"
FPutLn 1, "29"
FPutLn 1, "13"
FPutLn 1, "42"
FPutLn 1, "13"
FPutLn 1, "16"
FPutLn 1, "57"
FPutLn 1, "32"
FPutLn 1, "19"
FPutLn 1, "5"
FPutLn 1, "24"
FPutLn 1, "20"
FPutLn 1, "2"
FPutLn 1, "35"
FPutLn 1, "21"
FPutLn 1, "28"
FPutLn 1, "22"
FPutLn 1, "40"
FPutLn 1, "20"
FPutLn 1, "31"
FPutLn 1, "40"
FPutLn 1, "22"
FPutLn 1, "31"
FPutLn 1, "Sysop"
FPutLn 1, "0"
FPutLn 1, ""
FPutLn 1, "-----------------------------------------------------------------------------"
FPutLn 1, " ░░░ Config Instructions --- eXPReSS_MoDDiNG_CReW --- ANSi Req. ░░░"
FPutLn 1, "-----------------------------------------------------------------------------"
FPutLn 1, ""
FPutLn 1, " Line 1 -- X_Position of artists name"
FPutLn 1, " Line 2 -- Y_Position of artists name"
FPutLn 1, " Line 3 -- Length of artists name"
FPutLn 1, " Line 4 -- X_Position of artists group"
FPutLn 1, " Line 5 -- Y_Position of artists group"
FPutLn 1, " Line 6 -- Length of artists group"
FPutLn 1, " Line 7 -- X_Position of the ansi descriptions"
FPutLn 1, " Line 8 -- Y_Position of the ansi descriptions"
FPutLn 1, " Line 9 -- Length of the ansi descriptions"
FPutLn 1, " Line 10 -- X_Position of fav. colour"
FPutLn 1, " Line 11 -- Y_Position of fav. colour"
FPutLn 1, " Line 12 -- Length of fav. colour"
FPutLn 1, " Line 13 -- X_Position of users age"
FPutLn 1, " Line 14 -- Y_Position of users age"
FPutLn 1, " Line 15 -- Length of users age"
FPutLn 1, " Line 16 -- X_Position of " + Chr(126) + "Willing to pay" + Chr(126) + " question"
FPutLn 1, " Line 17 -- Y_Position of " + Chr(126) + "Willing to pay" + Chr(126) + " question"
FPutLn 1, " Line 18 -- X_Position of " + Chr(126) + "How much" + Chr(126) + " question"
FPutLn 1, " Line 19 -- Y_Position of " + Chr(126) + "How much" + Chr(126) + " question"
FPutLn 1, " Line 20 -- X_Position of EMail address"
FPutLn 1, " Line 21 -- Y_Position of EMail address"
FPutLn 1, " Line 22 -- Length of EMail address"
FPutLn 1, " Line 23 -- X_Position of contact place"
FPutLn 1, " Line 24 -- Y_Position of contact place"
FPutLn 1, " Line 25 -- Length of contact place"
FPutLn 1, " Line 26 -- Name of user to mail the request to -- (ie. Sysop)"
FPutLn 1, " Line 27 -- Conference number to mail the request"
FClose 1
:LABEL001
FOpen 1, PPEPath() + "ANSIREQ.CFG", 2, 0
FGet 1, INTEGER001
FGet 1, INTEGER002
FGet 1, STRING001
FGet 1, INTEGER003
FGet 1, INTEGER004
FGet 1, STRING002
FGet 1, INTEGER005
FGet 1, INTEGER006
FGet 1, STRING003
FGet 1, INTEGER007
FGet 1, INTEGER008
FGet 1, STRING004
FGet 1, INTEGER009
FGet 1, INTEGER010
FGet 1, STRING005
FGet 1, INTEGER011
FGet 1, INTEGER012
FGet 1, INTEGER013
FGet 1, INTEGER014
FGet 1, INTEGER015
FGet 1, INTEGER016
FGet 1, STRING006
FGet 1, INTEGER017
FGet 1, INTEGER018
FGet 1, STRING007
FGet 1, STRING019
FGet 1, INTEGER019
FClose 1
If (Exist(PPEPath() + "ANSIREQ.PC1")) Goto LABEL002
FCreate 3, PPEPath() + "ANSIREQ.PC1", 1, 3
FPutLn 3, "@X0F@CLS@@POFF@@X07 "
FPutLn 3, "@X08xps^modding!@X07 "
FPutLn 3, " - --- --- -------------- ----- ---------- - "
FPutLn 3, " @X0F @X07 @X0F @X07 @X0Fa @X07n@X0F @X07s@X0F @X07i@X0F r @X07e@X0F @X07q@X0F @X07u@X0F @X07e@X0F @X07s@X0F @X07t@X0F @X07e@X0F @X07r "
FPutLn 3, " - -------- ----------- --------------- -- - "
FPutLn 3, " @X0FS@X07o @X0Fy@X07ou @X0Fn@X07eed @X0Fa@X07n @X0Fa@X07nsi? @X0FY@X07ou've @X0Fc@X07ome @X0Ft@X07o @X0Ft@X07he @X0Fr@X07ight @X0Fp@X07lace. @X0FI@X07f @X0Fy@X07our @X0Fi@X07n @X0Fd@X07oubt @X0Fo@X07f @X0Fa@X07 "
FPutLn 3, " @X0Fq@X07uestion @X0Fw@X07e @X0Fa@X07re @X0Fg@X07oing @X0Ft@X07o @X0Fb@X07e @X0Fa@X07sking @X0Fy@X07ou, @X0Fj@X07ust @X0Fs@X07kip @X0Fi@X07t @X0Fa@X07nd @X0Fw@X07e @X0Fw@X07ill @X0Fu@X07nderstand. "
FPutLn 3, " @X0FF@X07irstly, @X0Fy@X07our @X0Fd@X07escription @X0Fo@X07f @X0Ft@X07he @X0Fa@X07rtist @X0Fi@X07s @X0Fv@X07ery @X0Fi@X07mportant @X0Fs@X07o @X0Fa@X07s @X0Fw@X07e @X0Fc@X07an @X0Fg@X07et "
FPutLn 3, " @X0Ft@X07he @X0Fr@X07equest @X0Fo@X07ver @X0Ft@X07o @X0Ft@X07hem. @X0FI@X07f @X0Fy@X07ou @X0Fe@X07nter @X0Fa@X07 @X0Fn@X07ame @X0Fl@X07ike @X0FR@X07a@X0FDM@X07a@X0FN@X07 @X0Ff@X07rom @X0FAC@X07i@X0FD@X07, @X0Fw@X07e @X0Fh@X07ave "
FPutLn 3, " @X0Fn@X07o @X0Fw@X07ay @X0Fo@X07f @X0Fc@X07ontacting @X0Ft@X07hem, @X0Fs@X07o @X0Fp@X07lease @X0Fn@X07one @X0Fo@X07f @X0Ft@X07hat @X0Ft@X07hanks @X0Fa@X07nd @X0Fo@X07nly @X0Ft@X07he @X0Fl@X07ocal "
FPutLn 3, " @X0Fa@X07rtists. "
FPutLn 3, " @X0FS@X07econdly, @X0Ft@X07he @X0Fa@X07rtists @X0Fm@X07ay @X0Fb@X07e @X0Fv@X07ery @X0Fb@X07ussie @X0Fa@X07t @X0Ft@X07he @X0Fm@X07om. @X0Fa@X07nd @X0Fc@X07annot @X0Fd@X07o @X0Fa@X07n @X0Fa@X07nsi "
FPutLn 3, " @X0Ff@X07or @X0Fy@X07ou. @X0FI@X07f @X0Ft@X07his @X0Fi@X07s @X0Fa@X07 @X0Fc@X07ase, @X0Fp@X07lease @X0Fd@X07ont @X0Fg@X07o @X0Fa@X07ttempting @X0Ft@X07o @X0Fb@X07e @X0Fa@X07 @X0F3|_3+3@X07 @X0Ff@X07ucker "
FPutLn 3, " @X03(@X0Blike tba@X03)@X07 @X0Fa@X07nd @X0Fb@X07e @X0Fp@X07atient. "
FPutLn 3, " @X0FT@X07hirdly @X0Fa@X07nd @X0Fl@X07astly, @X0Fp@X07lease @X0Fd@X07o @X0Fg@X07ive @X0Fc@X07redit @X0Ft@X07o @X0Ft@X07he @X0Fa@X07rtists @X0Fb@X07y @X0Fn@X07otifying @X0Ft@X07he "
FPutLn 3, " @X0Fu@X07sers @X0Ft@X07o @X0Ft@X07he @X0Fb@X07est @X0Fo@X07f @X0Fy@X07our @X0Fa@X07bility @X0Fw@X07ho @X0Ft@X07he @X0Fa@X07nsi @X0Fw@X07as @X0Ff@X07rom. @X0FT@X07he @X0Fa@X07rtists @X0Fw@X07ill @X0Fm@X07ost"
FPutLn 3, " @X0Fo@X07f @X0Ft@X07he @X0Ft@X07ime @X0Fl@X07eave @X0Ft@X07heir @X0Fl@X07ittle @X0Fs@X07ignature @X0Fo@X07n @X0Ft@X07he @X0Fa@X07nsi @X0Ff@X07ile, @X0Fw@X07hich @X0Fy@X07ou @X0Fm@X07ay @X0Fn@X07ot "
FPutLn 3, " @X0Fd@X07elete @X0Fo@X07r @X0Fy@X07ou @X0Fw@X07ill @X0Fb@X07e @X0Fe@X07xpected @X0Ft@X07o @X0Fs@X07how @X0Fy@X07ourself @X0Fb@X07efore@X0F c@X07ourt. "
FPutLn 3, " @X0FW@X07ell @X0Fh@X07appy @X0Fr@X07equesting@X0F a@X07nd @X0Fh@X07ope @X0Fy@X07ar @X0Fg@X07et @X0Fw@X07hat @X0Fy@X07ou @X0Fl@X07ike.... "
FClose 3
:LABEL002
DispFile PPEPath() + "ANSIREQ.PC1", 1
FreshLine
Wait
While (Exist(PPEPath() + "ANSIREQ.PC2")) DispFile PPEPath() + "ANSIREQ.PC2", 1
FCreate 2, PPEPath() + "ANSIREQ.PC2", 1, 3
FPutLn 2, "@CLS@@POFF@ @X0C░░@X07 @X0C░░@X07"
FPutLn 2, "@X0F---------------@X07- @X0C░░@X07 @X0C▓@X07▄@X0C▄▄▄▄▄@X07 @X0C▄▄▄▄@X07 @X0C░░@X07 - @X0C▄@X7C▓@X0C▄▄▄▄▄▄@X07 @X0F-@X07-- @X0C░░@X07 @X0F---------@X07-@X0F-----@X07--@X0F------@X07-"
FPutLn 2, " ▄ ▄ @X0C▄@X07▄@X0C▓▓▄▄▄▄@X6C█@X7C▓▓@X6C█@X07 @X0C▓@X6C█@X0C▀▀▀▀▓▓▀▀▀@X7C▓▒▓@X6C█@X0C▄▄▄▄@X07▄@X0C▄@X07▄@X7C ▒@X0C▓▓@X07"
FPutLn 2, " @X08xps.mod@X6C▓▓@X0C▄▄@X07 @X0C▄▄@X6C▓▓@X07 @X6C▓▓@X0C▄@X6C▓@X07 @X6C▓▓▓▓@X07 @X0C▄▄▄▄@X07 @X6C▓▓@X70█@X0C▄@X70█@X0C▄▄@X6C▓▓@X07 ▄▄@X0C▄▄@X07"
FPutLn 2, "@X08▓▓▄▄▄▄▄▄▄▄▄▄▄▓▄▄@X70█@X06▐@X6C▒▒▒@X0C▌@X07 @X60▌@X6C▒▒▒@X60▐@X0C▐@X6C▒@X0C▄@X6C▒@X60▐@X08▄@X60▌@X6C▒▒▒@X0C▌@X60▌@X6C▒▒▒@X0C▌@X08▄@X6C▒▒@X0C▀▓@X07 @X0C▐@X6C▒▒▒@X0C▌@X08▄@X07▐@X6C▒▒▒@X0C▌@X08▄▄▄▄▄▄▄▄▄▄▓▓▄▄▄▄▄▄@X07"
FPutLn 2, " @X06█@X6C░░@X60▄@X07 @X6C░@X60▄@X6C░@X60▄█▄▄@X6C░░@X07 @X6C░@X60▄@X6C░@X60▄@X07 @X60▄▄@X6C░░@X07 @X60▌@X6C░░░@X60▐@X6C░@X06▀@X6C░@X60▄@X07 @X6C░░░@X60▄@X07"
FPutLn 2, " @X60▄@X07 @X60▄@X06▓▓@X6C @X60▄▄▄▄▄▄▄▄▄▄▄@X06░░▓▓@X6C @X60▄@X6C @X06▓@X60▄▄▄▄▄▄@X07 @X6C @X06▓▓@X60▄▄▄▄▄▄▄▄@X07 @X60▄▄@X07 @X60▄@X07"
FPutLn 2, "---------------- @X06░░@X07 ------------- @X06░░@X07 ---- @X06░@X07 ------- @X06░░@X07 ------------------------"
FPutLn 2, " @X08.---------------, @X07 @X06░░@X07"
FPutLn 2, "@X08 @X07 @X08| @X0Fa@X07nsi@X0F r@X07equest @X08|@X07"
FPutLn 2, " @X08)---------------%---------------------------------------------,@X07"
FPutLn 2, " @X08|@X07 @X0Ba@X03rtists @X0Bn@X03ame@X07 @X08--@X07 @X08|@X07"
FPutLn 2, " @X08|@X07 @X0Ba@X03rtists @X0Bg@X03roup@X07 @X08--@X07 @X08|@X07"
FPutLn 2, " @X08)-------------------------------------------------------------(@X07"
FPutLn 2, " @X08|@X07 @X0A2@X02 @X0Al@X02ine @X0Ad@X02iscription @X0Ao@X02f @X0Aa@X02nsi.@X07 @X08(Logo, picture..etc)@X07 @X08|@X07"
FPutLn 2, " @X08|@X07 @X0F(@X07 @X0F @X07 @X0F)@X07 @X08|@X07"
FPutLn 2, " @X08|@X07 @X0F(@X07 @X0F @X07 @X0F)@X07 @X08|@X07"
FPutLn 2, " @X08)---------------------------%---------------------------------(@X07"
FPutLn 2, " @X08|@X07 @X0Dy@X05our @X0Df@X05av. @X0Dc@X05olour@X07 @X08--@X07 @X08|@X07 @X0Dy@X05our @X0De@X05mail @X0Da@X05ddress@X07 @X08 @X07 @X08|@X07"
FPutLn 2, " @X08|@X07 @X0Dy@X05our @X0Da@X05ge @X08--@X07 @X08|@X07 @X08 @X07 @X08|@X07"
FPutLn 2, " @X08|@X07 @X0Dw@X05illing @X0Dt@X05o @X0Dp@X05ay?@X07 @X08y/n --@X07 @X08|@X07 @X0Dp@X05lace @X0Dt@X05o @X0Dc@X05ontact @X0Dy@X05ou@X07 @X08 @X07 @X08|@X07"
FPutLn 2, " @X08|@X07 @X0F--@X05 @X0Dh@X05ow @X0Dm@X05uch @X08--@X07 @X08|@X07 @X08 @X07 @X08|@X07"
FPutLn 2, " @X08`---------------------------%---------------------------------(@X07"
FClose 2
Print "@POFF@"
Cls
DispFile PPEPath() + "ANSIREQ.PC2", 1
:LABEL003
AnsiPos INTEGER001, INTEGER002
PROC001(STRING001, Mask_Ascii() + Mask_Num())
If (STRING008 == "") Goto LABEL003
STRING009 = STRING008
:LABEL004
AnsiPos INTEGER003, INTEGER004
PROC001(STRING002, Mask_Ascii() + Mask_Num())
If (STRING008 == "") Goto LABEL004
STRING010 = STRING008
:LABEL005
AnsiPos INTEGER005, INTEGER006
PROC001(STRING003, Mask_Ascii() + Mask_Num())
If (STRING008 == "") Goto LABEL005
STRING011 = STRING008
:LABEL006
AnsiPos INTEGER005, INTEGER006 + 1
PROC001(STRING003, Mask_Ascii() + Mask_Num())
If (STRING008 == "") Goto LABEL006
STRING012 = STRING008
:LABEL007
AnsiPos INTEGER007, INTEGER008
PROC001(STRING004, Mask_Ascii())
If (STRING008 == "") Goto LABEL007
STRING013 = STRING008
:LABEL008
AnsiPos INTEGER009, INTEGER010
PROC001(STRING005, Mask_Num())
If (STRING008 == "") Goto LABEL008
STRING014 = STRING008
:LABEL009
AnsiPos INTEGER011, INTEGER012
PROC001(1, "YyNn")
If (STRING008 == "") Goto LABEL009
While ((Upper(STRING008) == "Y")) STRING015 = STRING008
Goto LABEL010
While ((Upper(STRING008) == "N")) STRING015 = STRING008
:LABEL010
Goto LABEL009
:LABEL011
AnsiPos INTEGER013, INTEGER014
PROC001(3, Mask_Num())
If (STRING008 == "") Goto LABEL011
STRING016 = STRING008
:LABEL012
AnsiPos INTEGER015, INTEGER016
PROC001(STRING006, Mask_Ascii() + Mask_Num())
If (STRING008 == "") Goto LABEL012
STRING017 = STRING008
:LABEL013
AnsiPos INTEGER017, INTEGER018
PROC001(STRING007, Mask_Ascii() + Mask_Num())
If (STRING008 == "") Goto LABEL013
STRING018 = STRING008
Goto LABEL014
End
;------------------------------------------------------------------------------
Procedure PROC001(String STRING020, String STRING021)
STRING008 = ""
InputStr "_", STRING008, 0, STRING020, STRING021, 8
EndProc
:LABEL014
Cls
Print "@X0Bs@X03ending @X0Br@X03equest @X0Bt@X03o @X0B" + STRING019 + Space(1)
If (Exist(PPEPath() + "MAILME.TMP")) Delete PPEPath() + "MAILME.TMP"
FCreate 1, PPEPath() + "MAILME.TMP", 3, 0
FPutLn 1, "@X03XPS ANSI REQUESTER_Vo.3 -- coded by trippah [xps/senior!]"
FPutLn 1, "@X08---------- -------------- ---------------- --------------- --- -- -"
FPutLn 1, ""
FPutLn 1, "@X0FRequested artist @X08-- @X0B" + STRING009
Print "@X08. "
FPutLn 1, "@X0FThe artists group @X08-- @X0B" + STRING010
Print "@X08. "
FPutLn 1, "@X0FTwo lines of the ansi request@X08.."
FPutLn 1, ""
FPutLn 1, "@X0B" + STRING011
FPutLn 1, "@X0B" + STRING012
FPutLn 1, ""
Print "@X08. "
FPutLn 1, "@X0FRequesters fav. colour @X08-- @X0B" + STRING013
Print "@X08. "
FPutLn 1, "@X0FRequesters age @X08--@X07 @X0B" + STRING014
Print "@X08. "
While ((Upper(STRING015) == "Y")) FPutLn 1, "@X0FThe user is willing to pay a price of @X0B" + STRING016
Goto LABEL015
FPutLn 1, "@X0FThe user is @X0B*NOT* @X0Fwilling to pay for the artwork so fuck him/her :}"
:LABEL015
Print "@X08. "
FPutLn 1, "@X0FUsers EMail address is @X0B" + STRING017
Print "@X08. "
FPutLn 1, "@X0FBest place to contact user is @X0B" + STRING018
FPutLn 1, ""
Print "@X08. "
FPutLn 1, "@X08-------------------------------------------(endofrequest!)-------- --"
FClose 1
GetUser
Message INTEGER019, STRING019, U_Name(), "ansi request!", "N", 0, 0, 0, PPEPath() + "MAILME.TMP"
Delete PPEPath() + "MAILME.TMP"
Print "@X08. @X09done!"
FreshLine
PrintLn "@X0FP@X07lease @X0Fw@X07ait @X0Fp@X07atiently @X0Ff@X07or @X0Fy@X07our @X0Fr@X07eply.."
PrintLn ""
Wait
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 2 Cls
; 2 Wait
; 21 Goto
; 12 Let
; 11 Print
; 2 PrintLn
; 17 If
; 3 DispFile
; 4 FCreate
; 1 FOpen
; 5 FClose
; 27 FGet
; 119 FPutLn
; 1 GetUser
; 2 Delete
; 1 InputStr
; 10 AnsiPos
; 2 FreshLine
; 1 Message
; 1 EndProc
;
;
; ■ Functions used :
;
; 49 +
; 13 ==
; 3 Upper()
; 1 Space()
; 8 Chr()
; 1 U_Name()
; 8 Mask_Num()
; 7 Mask_Ascii()
; 15 PPEPath()
; 4 Exist()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------